perm filename CIRC2.F4[SAB,LCS] blob sn#353917 filedate 1978-05-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 	SUBROUTINE CIRCL2(R,XC,YC)
C00003 ENDMK
CāŠ—;
 	SUBROUTINE CIRCL2(R,XC,YC)
 	N=IFIX(R*50.)+12
 	X=R
 	Y=0.0
 	THETA=6.2831853/FLOAT(N)
 	C=COS(THETA)
 	S=SIN(THETA)
 	CALL PLOT(R+XC,YC,3)
 	DO 10 I=1,N
 	U=X*C-Y*S
 	V=X*S+Y*C
 	X=U
 	Y=V
  	CALL PLOT(X+XC,Y+YC,2)
 10	CONTINUE
	RETURN
	END